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f’agA Numbers: Yes First Pago: 1 
Heading: 

TMconD*rhd March 8, 1979 

iitle[TritionD.nic * March 8* 1979]; **• diagnostibs fbr the Dorado disk controller 

TEST DESCRIPTION 

The first part of these tests will Curt with no disk present 

fcbeBegin Checks basic 10 and Muffler input, ahd halts on An intentional parity err 

Begin start of main diagnostics 

CheckStatb checks that all known huffier bits are in their correct state 

TagRleg Checks loading of the TAG register - static mode 
Rahi Tests the Format Ram - both addressing ahd contents 

fifd tests writing and reading of the Fifo - also tost write wakd-up logic 
MfdStep Allows to to step (in Pasive tabdb) the controller through Fifo operation 

ISDiskSpinning Looks and the disk status and brAnchbs to done if not ready and On-lino 

The rest Of the tests require a disk to be pre&eht ahd running 
Tag Write Tag register* Block* and wait for Appropriate wake-Up 
WakAUps checks basic sector and index wake-ups 

SectorCouhters Loads Sub-soctor counter ahd chebks for the right ndmber of sectors 

NOTE: In all testing* the bits that were found to bb in orror are left in register ’’Errors*' 

As An example if Errors cohtAind 200 and the test is for controller state KSTATE, then the signal on th 
f !fc e mufflfer KSTATE "bit 200” (ie EnableRun) would haVe an unexpected value. 

% 


***** - emlil a tor code for ChecktAG test 

*if the disk task is ever blocked* then this loop will run, arid if EMUCount goes to zero then the DSk t 
**ask will be wokeri up via Notify. It is up to the disk micro-codeia notice that there was no actual h 
hardware wake-up* 

set[xtask» 0]; top level; KriowRBase[Errors]; 

sst[EMUlocx, 201]; mc[EMU1oc, EMUldcx]; 5,1 EMU task PC counter 


feMULoop: 

RHase <- RBase[EMUcOuritj; 

Pd<~ EMUcount, at[EMlJloCx]; * 4 Test fbr already zero 

Skplf |]alu#0]; 

Branch[EMUloop]; 

EMUcount <- (fcMUcountJ-i; J ** f fcMU tolint down loop 

Skplf [«ilu//0]; 

Wakeup[DSK]; ^Notify if just gone to Zero 
BranchfEMULobp]; 
set[xtask, IP[DSK]j; 
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**' check but the mbffler reading scheme and domparb the results 

*** read by the microcode with what Midas reads 

PreBegih: 

T<-D1skControl; *At this point set TIOA V/ith Brtiux to disk TtOA 

TIOA<-t; 

T «• hoFlUnEhabl e; 

Out: Output <- T; 

bB ase<-FiBasbf Errors]; 

Moop; 

TMOC; 

TIOAtDiskMUff]; 

Output ± T; 

T «- FIOA&STKP; *Lets check that TIOA got set correctly 
T <- T dnd ( 17740dC); *mask TIOA 
Errors 4- T xor (diskMuff); 

Skplf[alu=b]; 

TIdAErrO: 

Errorj *Value irt tlOA not equal to biskMuff (0110) 


InNioPcki Errors <- InputNOPe; 
Moop; 

Moop; 

Moop; 


Inbck: Pd <- InpUt; 

Moop; 

Moop; 

Moop; 

ChdckMuffs: 

ca1ltread2i)Muffs], T<- StatOMuffS; 
Dmuxl00<- T; 


cal 1 tread2bMuffsj» TStatUsMuffS; 
DrnuxlOl*- T; 

cal 1 |>ead2bMuffs j » T«- RamMuffs; 
brnuxl02<- T; 

cal 1 t>ead20Muff $], T<- TaghiUffs; 
bmuxl034- T; 


cal lt>ead2!bMuffs j ♦ T<- FifoNluffs; 
brnuxl04<- T; 


T<-i774bbC; *At this point set TIOA tf/ith Bmux 377 

TIOA*-+; 

PeCk: Errors <- Input; *There is ho input for this TIOA address* 

Moop; *This should therefore cause an lOin pari err 
Godd . PE :fh t: Branch[Beg i ri]; :3s Compai r Disk Mufflers against Midas Mufflers 
PCKFailed: 

Error; ^Processor Input F’arit^ test failed!!! 

*No divide Was selected to drWe IQB 
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** Check ail signals oh mufflers and see that the,y dfe reasonable at this point 
** This means masking off all signals that we cah'i be suref of. 

Begin: 

M6op; 

Check.State: 

cail[clear-disk]; 

call [read2(SMuffs j, T* StatoMuffs; 

T <- T XOR (70C); ’Normalise the bits head 

ErrorsK AMD (76377C); ’mask of just the hits that are determinate 
Skplf[alu-b]; 

State ppf 4 ^ ’ 

Ehror; ’Cdmpihe *' 1" blt(s) With muffler word KS+ATE 

cal 11read2C>Muf fs j, T+- StatUsMuffs; 

T+-+ xor (16000fc); ’Normalise the bits head 

T^T xor (3C); ^Normalise the bit.t read 

Errors^T arid (1777370}; ’mask Of just the bits that ard determinate 
Skplf[a 1u^O]; 

Sta t i thrs: 

Ehroh; ’Compire "1" blt(s) With muffler word KStAT 

ca1l[read2CWuffsj f T*- FifoMuffs; 

Errors «- T xor (2000C); ’Normalise the bits head 
Skplf [ail u-d]; 

Fif6:Errs: 

Error; ’Compihe “l” bit(s) With muffler word KflFti 
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_ — — — —— ; — — ; ^ 

** vi/rite the! TAG register with various data. 

** ± must avoid values that make the disk to barf 

** read value via the imifflers and compare 

** the value written inib the TAG register is Immediately 

** available for reading on the mufflers 

** riin as DiskTAGK orily - no blocks/v/akeups 


Tagilegi , 

dallfelear-diskj; 
Counts (100000C); 

TagilegL: 

hoop; 

TIOAj_0iskTagj; 

Output <- Courtt; 
can[read20Mdffsj i T*- 
T<~ T xor (Codnt); 
Skplf L*alu = 0] ; •skip 
TajjRegErM: 

ferrofj *+ag Register 


♦initialize counter and TAG valtie 


TAGmuFfS; 
if ok 

not equal to data written 


f>d *- (Count) and (160000C); 

Skip'If [alu»0 j; 

Count (Count) rsh 1* Skip[]; 

Counts (Cou!nt) - H 

LoopUnti'l[ald = 0i TagRegL]; *skip if around to Zeho agdih 
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*IsSuk DriveSelect tag iri&trdctioris to select drives Values of 0 to 17 
*aHd see that the controller selects the appropriate drives 

* ( DrSel is a subroutine that isiies a drive select from Value in ”T” 

* ahd returns with selebt*0,,select.1 in bits 14,,16 of T) 

DriVekelOct: 

call[cleared isk]; ^initialize controller & clear ahy wakeups 

call [ ini t-ram] ; *turn! on RUhEnablef 

call [readlMuf f ] , T<- RiinEmableMbff; ♦Now check to see of RunEriabld is on 

SkpIf[alu^O]; * s k i p if RUhErtablO set 

DrivbSelEi 

EPror; ♦RunEnablb should be set at this point 
Nbop; 

cal 1 [$et~CKbHVe j * Counts AO; *Se1edt drive ft 
Skplf[alu=0]t 
DrivbSelEO: 

EPror; ♦♦♦didn’t select 6 

call[Set-CKDriVej* COunt^ (Coifiit)+l; *$01601 drive 1 
Pd<- (T) xor (Cburit); 

Skplf[alu=0]* EhrOhs^Ti 
DrivbSelEl: 

Error; ♦♦♦didh’t select 1 

call [$et-CKDrive j* Counts (C6iiht)+1; *S0lect drive 2 
Pd<- T Xor (Couht)i 
Skplf[al u = 0] *EPrdPs**Ti 

DrivbSelE2: : 

Error; ♦♦♦didn’t select i 
Ndop; 


dsi3i: 

NOop; 

cal 1 [Set-CKbrivel > Gdunt^ (C : 6ilht)+1; *S0lect dr ive 3 through 16b 
Pd<- T *or (3C); 

Skplffalu=0]*EProPs*-Ti 
DrivbSel£3; 

Error; ♦♦♦didn’t select 3 

Ptik (Count) xoP (17G); *Do this Until we get to drive 16 
Lb'opUnti l[alu=(), ds3]; 


Nbop; 

call[Set-CKbrivej, COunt^ (CoUht)+l; ^Select drive 17b 
Skplf [al u = 0] ,EPrdPs«-T; 

DrivbSel£l7: 

Error; ♦♦♦didh’t select 0 
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** chbdk that the format rdrn is being written correctly by writing a bdhdom pattern 
*** write the RAM once: then check those values dnd Write in neW one& 

Ram: 

cal 1 [clear-disk] ; ♦initialize controller & clear any waketips 

Cal l[SendCommand] ;T*-A0 ; ♦make sure Write addr is 0 for forrifat RAM 
KScr«- 123C; ♦start reading with some value 

KScr2*- 123C; ♦start writing with some Value 

Count*- 20C; ♦counter 

RamlnitL: ♦Write the Ram once to get krioWn data ih it 

fdoop; 

CalIfreadlMuff], t*‘ RunEnalbl PMUff; *Check that Runfenablb has not been Set yet 

Skplf[alu=0]; 

RamWlEhrO: 

Error; ♦Runtnable shoUld still be bleared at this point 
♦The format ram has been writen "Count” times 
TIOA[DiskR&mj; 

Cal 1 [MakeRandom] »'i> KSCC2; ♦Get a new random numbeh for hext Write 

KScr2*- Outputs T; ♦Write new humber 

call[readlMuff], 1> IOBPErrMuff; ♦Check that Output didii r t cabse a parity error 

Skplf[alu=0]; 

RamPebrO: 

Error; ♦Controller detected IOR pabity drrob 
♦due to the previous write 
Count*- (Count) - 1; 

LoopUntil [alti-0, RardlnitLji 

cal 1[readlMuff], 1> RuhEhablUMUff; 

Skplf[alu#0]; 

RamWErrl: 

Error; ♦rundnable shoUld be set at this point 
Nloop; 

RamLObp: 

fJoop; 

Cal 1 [MakeRandom] »+<~KScr; ♦Update random number for n£3ct dead 

KScr<- T; ♦Make up What were are really going to read 

KScr3<- T and (7777C); ♦The ram contents in bits 4,, 15 
T <- LSH[Count,14]i 

KScr3*- (KSOr3) oh T; ♦and the ram address in bits 0^3 of Colirtt 
call[read2bMUffs]* T*- RamMuffs; ♦Now go and read the muffler 
Errors*- (KScr3) xor T; 

Skplf[alu=0]; 

RarnEhr: 

Error; *bad valtie from Ram (KScf3 ~ good value) 

♦bits 0,>3 are address; 4,,15 are RAM data 
TIOA[DiskRamj; ♦Output next value and 

Cal l[MakeRandom] KSfcr2; rJt Get a new random numbeh for hext write 

KScr2*- Output*- T; ♦Write new humber 

cal1[readlMuff], t** IO&PErrMuff; ♦Check that Output didn't cabse a parity error 

Skplf[alu=0]; 

RamPerrl: 

Error; ♦Controller detected IOR pabity error 
♦due to the previous write 
Count*- (Count) + 1; 

LoopUntil[alU=0, RarrlLobp]; 
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*First InfitiaT ize the controller into art active Write* Command arid Check the tauffloris 
♦if the controller doesn't run this tbst right, ybu might try tfie 8tepFifo routilie 

F i t o: 

Nloopi 

KScr<* 123C; ^Initialize read value 
KScrZ*- 123C j *tnitial!ze write value 

cal 1 [cl ear-disk] ; 

TIOA[DiskTagj, T * T-T; *Makb suhe Tag register is 0 

Output* 4 T; 

ca11[ihit-hdm]; 

Cal 1[SbtDrive] , t*-37C; ^Deselect drive sd fcdhiiriartd is not executed 
T<- l()0t; *Write header conimand 

call[SendComman d] *T <- T + (lOOtC); ♦set debug mode so controller becomes Active 

cal l|Vead20Miiffs] * T<- SUteMdff s; 

T <- T xor (364C); ^Normalise the bits rUdd 

Errofs*~T and (374C); :k mask of just the bits that dre determinate 
SkpIf[alu-0]; 

Fi to Err'd: 

Erfbt; ♦Controller in wrong slate after Writ# cbtrimarld 
♦Coriipi re "1" bit<s) With muffler KSTAtt 


FifoOut: 

fioOpj 

call [rbad20MUf f s] * T«- FifbMuffS; ♦First sed thdt R/W address pb inters are Zero 

Errors*~T and (377C); 

SkpIf[alu-0]; 

FifoOutEO: ♦The FiFo address coiihtePs ahe wrong 

Errbh; ♦Coiiipair should he zero 

Cal 1 [MakeRartdom] ,+«* KScr2; ♦Get a neW raridom humber fbr next White 

TlOA[DiskDaid]; 

K$cr2«- Output*- T; *Write rtbw nbrnber [ KFIF0 * feood ] 

call[readlMuff], t<- IOBRErrMUff; ♦Check that Output didn’t cause d parity error 

SkpIf[alu=0]; 

FifoOutEl: 

Error; ♦Controller detected IOB parity errbr 
♦due to the previous Write 

ca11[rbad20Mtif fs] * T«- Fifb^uffs; ♦Check R/tof address pbirttcjfis acfairi 

T<-T and (5777C); ♦CntDbne 1 is not deterirtirtaht 

T«-T *o r ( 56()dC) ; 

Errbrs*~T xor (21C); 

SkpIf[alu=0]; 

Fifo0utE2: ♦The FiFo state Is wrbng KFIFO should be 7021 

Errbr; ♦The FiFo address coUhtefs should bb 21 
♦OiitRegFuli slrould bd 1 (2000 bit) 


KScrd*- 21C; ♦Initialize Rdad/write address pbihtdr 
♦♦♦♦♦Wow start the iristin loop 
FifoLoop: 

Couht 16C; 
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do i4 whites checking pbMty,fifb address poihtbrs, and wake-up 

FifoWLoop: 

NOop; • 

Call [Makeftandoriij, T<~ ICSbr2 ; *i3bt a new randoiri dumber for next write 

TJOA[Diskbata]; 

Ki$cr2<- Outputs T; *Oiitput and save thb new niimber 

tall[readlMuff], T«- ICbPEfrtouff; *Chock that Output didn’t caijse a paHty brrbf 

Skplf[alu-0]; 

FifoWriteLO: 

Error; ^Controller detected I0B parity ehrbr 
*due to the prbviotis write 

K8cr3 *• (KScr3j + (20C); *h6W Update the h/W address register 

K$cr3 (KScr3) and (377C); 

call[readZOMuffs], T«- iFlf otfluff $ j *iM6W seb that R/W address counters ahe cOrhobt 

t>T and (377C); 

Errors ^ t xoh (K$cr3); 

Skplf[alu-0]; 

FifoWriteLl: *The Fife addrbss counters are torbnlg 

Error; *Gompair KFIO (bits 8,, 16) With KScrS 


T *• RSHL'KScr3i4]; *Ndw compolb the differehcb 

Errors +■ T; *wdrds in Fii'o » (Waddr-Raddr)&17b 
T ** (KScrd) ahd (17C); 

X ** (Errors) - T; 

Errors +- T and (l7d); 

Cal 1 [ReadlMuff]» T <- toriteTWmdff; *hbad state 

Pel (Errors) - (16C); ’“See if the value should bb 
SkpUnl essfalu<0j, Errors +■ T; *save read value Iri 
T«- (T) xor (1C); *nbFniciil i ze value 

Skpl f[alu-0]; *and skip if is what it sholild be 
Branch[LifoErrClieck]; 

Branch[i : i f oWritecont]; 

FifoErrChOCk: 

T<- (Count) xoh (3C); 

Skplf£alu = 6]; 

FifoWriteL2: *V/ritb toakbtip Lrrof 

Error; *Value read is in throbs 


between 


of Write Task Wakeup 

on or off 

Errors 


FifoWritbOOnt: 

Counts (Count) - 1; 

LoopUntil[alu=0» FifoWLoopj; 
Noop; 

Count <- 16C; 
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*t****(j 0 ^ j [4 r e a d§ checking data and fifo address pointers 

FifORtoop: 

Hoop; 

CallitoakeRandom^THCScr; ^Update random number fbr feadihg 

KScr<- t; 

T10A[biskData]; 

T> Input; 

E;rbors<- (KSc h) xor t; 
fikplf ta1ti s 0]; 
fi foheaclFO: 

Crbor; *bad value from Fifo (KScr - good Value) 

T <- (kScr3) and (17C); ♦update the Read pbrtion of F!/W addr register 
Pd <• T xor (17C); 

Skpl)nlesS[al ti=0], kScr3 «- (KScr3) + 1; 

KScr3 *■ (K$cr3) - (20C); 

Noop; 

cal1[read20Muffs], t*- FifohlUffs; *NoW see that R/Vf address counters are correct 

T>t and (377C); 

Crbors <- T xor (KSbr3)j 
Skpif j[a10=0]; 

Fit ORbadE- 1: 

E-rfor; ♦Compire "1* bit(s) with muffler word kFlFO 
Pd<- (kScr) xor (123C); 

SkplJnlesSfa lu-0]; ♦exit test if we gbt olir original fandom number 

EJrarich[FifoDone]; 

Count*- (Count) - 1; 

L.oopUniil [al u~0 > FiFoFtLoop]; *Keep reading some Words 
Elfanch[FifoLo6p]; *Go back and write some more Words 


FifoDbne: 

Cali[blear-disk]; ♦Clear out Debug Mbdb 

Call[blear-disk]; ♦Turn off Active 

Brarich[IsDiskSpinning] j 
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***** 

♦♦Set the controller up £b that the mi das STEF* command can be used tb observe 
♦♦the state of the controller as a wbrd is loaded ihto the controller and progresses 
♦♦to the output register 

FifoStep: 

Noop; 

cal1[cleah~disk]; 

TI0A[Di skTacj], T * T-T; 

Outputs T; 

call[init-r£irn]; *TUrn on RunEnable So Fifb can be loaded 

♦ [ KSTATE * 364 ] 

♦Hfb is initialized and empty [ ICFIFO ~ 2000 ] 

T 1C; 

Set-Pasive: ♦Ivlldas must be id Pasiv mode for this test 

TIOA[Di skllata] f Breakpoint; ♦TIOA = 12 

Noop; ♦InRegistbf is loaded [ ICFIFO = 2000 ] 

S-out: Output*- T; *Write data (see ALUA) [ ICFIFO = 2000 ] 

S-IR: Noop; ♦InRegisted is Ibaded [ ICFIFO = 2400 ] 

S-FiFo: Noop; ♦l : ifo <- InRegistbf t KFIFC = 2020 ] 

Noop; *[1foEmpty*0 (no niufF) [ KFlFO = 2020 ] 

S-OR: Noop; ♦OutRegistbr *- Fifo t tfFIFtl * 3021 3 

S-In: KScr*-Input; *l0B*-0utReg istef [ ICFIFO = 3021 ] 

S-Ck: B <- KScr, Breakpoint; *Read data (Sbe Ai.UA) [ liflFCl = 2021 ] 

T <- T Icy 1, Branch[S~out]; ♦Change data and dd again 

t 

On sucessive passes through this loop* K.FIFO is incremented by 21 as the two 4 bit address counters Inc 
♦♦rement modulo 16* The date writteh and read is 1 left shifted 1 fbr each pass, and is on the "&Mux^ 
♦♦so you can see in in passive mbde bn the Al.UA muffler. 

The valid values For instruction "S-Ck" are: 

KFIFO= 3021 3042 3C)63 3i04 3125 3146 3167 3210 3&31 3252 3273 3314 3335 3356 3377 3000 

ALUA- 0001 0002 0004 0010 0020 0040 0100 0200 0400 1000 2000 4O0O 10000 20000 40000 lOOOOC 

t 

♦♦Now check things that require a disk to be Up add spihniiig 
IsDiskSpinning: 

Call [cleah-disk] j ♦Clear out prbvioiis states 

call[init-ram]; ♦turn on RunEnable 
call[read20Muffs], T** StatusMuffs; 

T «- T and ( 16000C); 

Skplffalu-0j; 

Brancb[Dohe]; *Dbne if the disk is not Up and feeidy 
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** write the tAG register 4 with incrementing data, thru all values 

*** r&ad i/alde via th^ mufflers and compare 

** stairt as DiskTASK then block and wait for Hardware Makeup 

**The emulator has a timeout loop which will generate a Waketip to be detected as ah error 
** this Checks out cldarTWs, block, and TAG waketips 

Tag; 

Calltciear-disk]} 

CouritS<~6C; Vead the 5 TV/muffs 

Call[ReadMtiffs], T<- IndexTWmuff; *&ddress of 1st niuffler to bead 

SicplfCalu= 03 ; *skip if wakeups cleared 

TagE.0: 

ferforj *wdketips not cleared 
Call tinit-*ramj ; Hum on RunEhable 

Cal 1 [readlMuf f ] , T<- (UinEnabl eMtif f; *Mow check to See of RunEriable is oil 

JSkpIf[a 1 u#0]; tt skip if Ruhfcnable set 

TagEl: 

iErforj *RtknEriabie should be set at this point 
Counts (1C); ^ s hi ft 1 bit - primarily tests wake-UpS 

TagLodp: 

W66p;. 

Pd *• (Count) ahd (70000C); ^See if the new number should enable Wake-Up 

brarith[MoWkUp,alu^oj; 

M6op; *Micrd placement 

cal 1 tSendTdg] , T<~ Count; ^retuPns via Wakeu'p 

5k iplf [alu#Q] , trrors**T; *Test to see that return was ndt due to time out 
T agWktipEO: 

Erforj *Wds woken up by EMlI tirriedut 
BraribhfTagCk]; 

NoWkllb: 

CalltSendtdg], T<~ Count; ^returns via time-out 

5kiplf[alu-0],tmorsHT; *TeSt to see that return was not due to time out 
T agWk.UpEl: 

ferrdri ! *Wels woken up by Hardware 

TagCK: 

T*- l'AGmuffs ; *Hicro placement 

Calltread2bHufF$j; *NoW see if the data is correct 

Errors<- T xdr (Count); 

Skplf[alu a d]; ^skip if ok 

T agE2: 

tfrofi *Wrdtd Haunt* 1 into tAG register 
C6urit<- (Cotint) lsh i; 

LoopUntil[alu=0, TagLoop]; Host for done 
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♦•Try the baklc Sector and Index todke-Up logic 
WdkeUpS: 

Call ^dear-disk]; 

call [Init-rain]; •turn oh RuriE liable 
EMUc6unt<-Al; 


Wakeldx: 

Moop; 

Cal 1 [DoClear], T*- clearSTW; 

Block; *block for wake-dp — tliiieout 0 17ihs 

CountS«-5C; 

Call[ReadMuffs] , T«- XndexTV/niuff; •See tohdt woko dp the tdOk 

Pd <“ T and (SectortWBi t); 

LoopUnti 1 [a lu=0 ,Wakeldx]* Errors^t; •Loop uritill not a Sector wake-up 

P d <- T xor (IhdexTW&i t); 

Skplf[alu=0]; 

WakeldxErr: 

Error; *No itoEX wake-dps??? 

EMUcOunt «• Al; 

WakeSeC: 

MoOp; 

Call[DoClear], T<- clearlTW; 

Block; *block for wake-dp -- tirheOut after 17rti£ 

CountS«-5C; 

Call[ReadMUffs] , T*- IndexTWniuff; •See Whdt woke tip the idssk 

Pd <- T and (IndexTWlSit); 

LoopUnti 1 [al u~0 ♦WakeSec] * Errors^t; •Loop uritill not an Index wake-up 
Moop; 

Pd <- T xor (SOctorTWBit); 

Skplf[alu = 0]; 

WakeSecErr: 

Error; *No SECTOR wake-dps??? 
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****» - - - - - - A - t* * w* - - - - - -• « - 

**Mbw put all reasonable values of SubSectoP counts ahd check fbr the right niimber bf Sectors 

SectorCountefs: 

tall[clear-disk]; 

Call[ihit-raifi]j *’turh Oh RuriEhable 
Sectors 117: 

Cal 1 [SbtSoctor ]* T «- AO; 

Cal 1[OoClearj, clbarATWs; 

Cal 1 [SendComrhahd], Tt-hoadyAnd Index; 

EMUcoUht ** Ai,Blbck; *blbck for Wake-up tiineoiit after 17MS 
Colint3*-5C; 

Call[rtbadMuffs] ; T<- Ihdex+Wniuff; *Seb What Woke up the task 

Ed <- 1 and (indexTWBit); 

Skplf [al u^O] ; Errors*-T; 

Wakb$ecErrll7: 

Error; ^V/ake-Up was NOT an Index 

tt ViaitR ill Cndex cortimand probably failed 
Errors <- AO; 

ll7L06p: 

Cal 1[DoClear], cleOrATWs; . 

EMlJcoiihb <- (lOOOt) 4 B lock; ♦'block for Wake-Up — timeoUt after 150us 

tountSvBC; 

Cal 1 [RbadMuffs]; T* InddxtWniutf; *See What Woke up the task 

Pd «- T and (indexTWBit); 

LoopUritil[alii/Zo* 117Lbopj, Errors «- (Efrors)+l; 

Ed «- (Errors) xor (1170); 

Skiplftalu»0j; 

SectorErri 17: *V/ith a Value of 0 in the SUb-SectbP Couhters* 

Error; ^there should luive been a count of i!7d sectors. 

$e<itors30: 

Cal 1 [SbbSeJctor] * T *• AltoCoiinti 
Call [DoClear j, t *• cledrATWs; 

Call [SehdCommand] , T<~BeadyAnd Index; 

tMUcodht Ai,Blbck; *blbck for Wake-up -- timeoUt after 17hiS 


CountS*-5C; 

Cal 1 [rtbadMuffs]; T<- InddxtWniuff; *See What Woke up the task 

Pd <-• 1 and (i ndexTWBi t); 

Skip!f talu^O j , Errors*-T; 

WakeIdXErr30: 

Error; y *Vlake-Up was NOT an Index 

*V/aitRi11 Index command probably failed 
Errors 4- AO; 

30Lbop: 

Cal 1[OoClearj , clbdrATWs; 

EMUcoiint +* (4000fc)*BIock; *block for Wake-up -- timeoUt after 600us 


ColintS^SC; 

Cal 1[EeadMuffs]; T<* IndexTWmuff; *See What Woke up the task 

Pd «- T and (IndexTWBit); 

LoopUht il[alU^0,30Lobp]» Errors *- (Errors)+i; 

Pd <- (Errors) xor (30D); 

Skip!ftalu s 0]; 

SectorErr30: *V/itii a Value of 3 in the Sub-Sector couhters* 

Error; *M.here should luive been a count of 30d sectors. 

$eclors9: 

Cal 1 [SetSector]* T +• TriCourit; 

Cal 1 [DoClearj , T*- clearATWs; 

Cal 1[SendCommandJ * T*RuadyAndIndex; 

EMUcoilnt * Ai,Block; *block for wake-up timeout after 17niS 
Counts <-5C; 

Cal 1 [ReadMuffs].. T*- InilexTWmuff; *See what woke up the task 

Pd <r 1 and (IndexTWBit); 

Skiplf f alu//0] * Errors*! ; 

WakaIdxErr9: 

Error; i5 VJ3ke-Up was WOl an Index 

V/a i t R i 11 [ n d e x e c mm a n d p r o b a b 1 y f a i 1 o d 
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Errors <- AO; 

9Lobp: 

Call[DoClear], T<- clbafATWS; 

EMUcount «- 2bOQOC>l31bck; *block for wakb-up tim&oUt af ter 2O0Ous 

CobntS<-5C; 

Cal I[ ReadMuff s j v T<- IhdoxTWmUff; *$ee What wokfe up the task 

Pd *■ T and (Inde#TV/Bi t); 

LoopUntilfal u//0 »9Loop], frrors (Err6fs)+1; 

Noop; 

Pd «- (Errors) xor (9b); 

Skipif [al u=*d]; 

SectorEhrO: ♦With a valufe of 0 ill thb Sub-Sector ccuhterg, 

Error; *thbre should haVe boon a cobnt of 9d sectorb. 


********4* ^ - *. - - - - - - ^ * - - j. 

cal )[clear-*ciisk]i 

branch[Donej; *Ddnie with diagnostics 
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* * *9* * * fe _ - - - - W« - - - - - - - - -*-*• 

SUb routing; ****** 

* 3? ifc «C *»1 * Jit * it '■* ~ -* *- - - - - W -• - - - - - - "i ~ - - <- 

rbadlMuff: ‘muffler number i& in T 

TIOACDiskMurf]* Global; 

Output*- T; 
noop; 

1> input; 

Pd** T r Return; ‘returns with alu test hahlgihg 

* Un*e Sfc t*» * * it '# •. -s «. U - - - - - - - - - - - - ~ - - *- 

rbad20Muffs: ‘muffler number i£ in T 

Counts*- 20C, Global; ‘Set count to 20 
Branch[fob], KScrS«- AO; ‘clear out starting Value 

**:&**»**)'*** - ~ ~ w. - - - i- - ~ - - - - - - ~ - - <- 

rteadMuffS: *T plus couht in Counts 

KScrS*- AO,Global; ‘clear out starting Value 

f bo; TIOA[DiskMu Tf ],kSc r4*-T j 

iboprtdMf; 

Output*- KScr4, kScr4<- (KSci'4) + 1? 

Counts*- (Counts) *- l ; 

brancht.+3, alu<0]» KScrS*- (KScrS) ley 1; 

T*- input; 

KScrS* (KSCfS) OR T, branch[loopRdMf]; 

KScrS*- T«- (KScrS) rcy 1, return; “Values are returned in kScrS and T 

* 3f :* sk s|i JJ: * * M * - - U - - - w ~ - - - - ~ 

DbClear: ‘bits to be cleared are in T 

*Noop,Global; 

TIOA[t)iskMuff],Global; 

Output*- T; Noop; Noop; ‘Noops required fbf wake-ups to clear 
re turn; 


* # & <i*s* * it '■# v. -s - _ - - - i- « - - ~ - - - - - - - <- 

*“ returns whdn a seek/taglW is actually Seen - or when the EMU task tiiiles out 
***An actual hardaro wakeup wiil cause the subboutirtb to return -1 
‘“An EMiJ tifimbut will return 0 
SbhdTacj; ‘TAG value Is in t 

KScrL*- Lirik; 
top Itsvel; *** 5l * : * 

T JOA[DiskTag]; 

Output*- T; 

cal 1 [rbad 1 Muff] 4 t* lOBPErrMuff; *Check that Output didn’t cduse (x parity error 

Skp If[alu-OJ i 

OUtPOfr; 

Link^KScrL,branchf, j , breakpoint; ^Controller detected IOB parity error 

‘due to the previous write 

Noop; 

Sndlaq L; 

Cal 1 [tibClbar ), T<- clearALLbutTagTW; 

EMUcouHt * 40C,Block; ‘block for wakb-up --3us maximum 


CountS*-5C; ‘bldck for wake-up 

CallfReadMuffs], T* TndexfWmuff; ‘See What Wbke up the task 

SkpUuTess[a 1 u-0] , KScrS*-T; *Lbop back and wait for another Wakbup 

Branch[Tag rwseen]; ‘Loop back and wait Tor another wdkeup 

Pd * T and (4C); 

LoopWhile[a1u = 0, SndTagL]; ‘Loop back ahd wait for another Wakbup 


Noop; 

TaqTWseon: 

Cal l[DbClbar;|, T<- eiearALt; 

subroutine; ‘*** Ul 
Link*- kScrL; 

EMUcouht * AO; ‘stop the Emulator task from counting 
T KScrS, Return; 


* & !fi >3c Jp «. »v «. - - - - - - - - - - - - -i - - - 

Sb tDri \/ti: 

nOALDiskTag],Global; 

Output T; ‘first set the value in the 12 bit register 

T v* T OR (Orv Select! AC ) ; ‘drive select plus Dr iveTag bit 

Output*- T; ‘Nov/ turn on the strobe 
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T «- T arid (7777C); *dHve select bnly 

Outputs T< hetUhn; ‘Finally turn bff the st.robe 

*:? Tft >* fy ii *1 ijn * - - J. - - - - - « * - - - - - - - - - 

ICScrL «- LihkiGlobali 
top levblj ***** 

Cal1[SatDriVe]; 

T *■ T or (SecttirCHtCnable)i 
CallCSotDriVe]; 

subroutine; ***** 

Link*- KScrL; 

Return; 


ip :p :* *H * *. * J* s* . ^ ~ i. + - - ~ - «. 

S&ndCdniinand: ‘cbm'rhaHd is id t 

TIOAtDIskCbhtrtilj,Global; 
Output*- t i return; 




c'l«ar^'cH$k: 

RTBase^R^asbtEPrors] *G1 obeli; *Mot nbedbd 
ICScrL *- Lihk; 
fop Levdlj 

TV EMindc} * sot the LmU PC t6 its loop 


Link<- T; 

LdTPC*- EMU; 

EMUJcounH-Au ; ‘Clear 4 EMU counter 

T**D1skContrbl j ‘Set TIOA with ^inUX to a disk tlOA 

TIOA«-+; 

TV|\ioRunEnablej ‘Turn off RunEnablO 
Subroutine; ***** 

Link*- KScrL; 

Output*- t; RetUhii; 


* i$ aft »Je *e 0 it, * :* i» «i « i. ~ - - ~ - 

1hit~fatfi: ‘init format Warn in Diablo format 

TIOAfDiskRanf]; 

TV 1C; *hbadef count - 1 
Output*- t; 

TV 7C; ‘label coUnt - 1 
Output*- t; 

7> 377C; ‘data coiiht - 1 

Output*- t i T«- T - T; 

Output*- +; ‘UnuSfld block = t) 

TV 104C; ‘look for DlTrideilt sync pattern/read command 

Output*- tj 

TV 204C; ‘Write comrhanid 

Output*- t; 

TV 4c; ‘ihit command 

Output*- + * T«- T - Tt 

Output*- t; ‘reset, commarad i& 0 

T*- 33C; ‘Write delay first block 

Output*- t; 

TV 6C; ‘Write delay successive blocks 
Output*- tj 

TV nC; ‘rOad delay first block 

Output*- t; 

TV 2C; ‘read delay successive blocks 

Output*- T; 

Output*- +* T<~ T - 1; ‘head select delay is also 2 

Output*- J i T *- T - 1; ‘ho. of ECC v/ords - 1 - 1 

Output*- T; ‘the constant 1-1 = 0 

Output*- f; ‘must; Write last word to turn ort RubEnable 

TTOA[DiskCohtrol j ; ‘ho wakeups ’til Ready&lndex 

Tv ReadyAndIndex; 

Output*- T; 

T I0Af DiskMlif f ]; 

TV clearALL; ‘clearErrors + cloarTWs and returns 
Output*- T, Return; 


••it H ife to V *t *Ss _ - - - ~ - ~ - ~ - - ~ - - - 

“And now my ov/n favorite random number generator 
“You give it some number, and it returns e new number 
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Makefiartdotn: *01d Value is irf t 

Pd +• T,Global ; 

Brahcht:+3,aiu<0] t T «- T LSli 1; ^slcip to retl/fn 
T «- T xor (77000C); 

T *• T xor (2JiJC); "XOR by value 772i3 

Retbrn; *ahd Return 

Set-CKbPiVe: 

KScrL l- Lihlc,Global; 
top level; ***** 

Cani;satDrive] T<*Coilnt; 

Cal ifr'eadlMuff], T<-biskSe1ectMliff; "muffler ntlmber ia In T 

KScrS^T Ish 1; *!lead the two briveSelect mufflers 
Call [read IMuff], t<*DiskSelactMUff+l; "muffler nUinber ia In f 
subPoliti ne; 

Linio- ICScrLj ***** 

T*- (kScfS) or T, Return; 

top level; ***** 
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* Disk-Defs.mc - last modified December It), 1978 6:17 PM 

** stored in [ivy]<Dlsource>Emu.dm 

TITI.E[TriconD-Defs.nic - January 9, 1979 3:50 PM]; 

* m[hodp, i'lc[(branch[.+i])]]; *Defined id Preamble.me 

m[skipif ( BHG0[tsd] BAT(\+2,#lj#2]]; 

***** ---------- 

TA$KN[D$K, 14]; 

*** TlOA values for disk 

Dev ice[DiskControl, 10]; 

Dev ice[DiskMuff, 11]; 

Dev ice[DiskData, 12]; 

Dev ice[DiskRam, ±3]; 

Dev ice[DiskTag, 14]; 

* **** .i----.--.--J. 

*** km register names 
RmRegion[diskrms]; 

rv[Errors, 0]; 
rv[KScr, 0]; 
rvfKScr2, 0]; 
rvfl(Scr3, 0]; 
rv[KScr4 t 0]; 
rv[Codnt, 0]; 
rv[Counts, 0]; 
rv[KScrS, 0]; 
rv[KScrL, 0]; 

rv[EMUcount v 0]; : 

rv[Dmuxl00„ 0]; 

rv[DniUxl01* 0]; 

rv[Dmuxl02* 0]; 

rv[DmUxl03, 0]; 

rv[l)mUxl04„ 0]; 


****** - -- -- -- - 
*** Muffler constants 


mc[StatusMuffs, 20]; 
mc[NotReadyBit, StatusMUffs, 5]; 
mcfwriteErrorMuff, StatUsMuffs, lb]; 
mcfreadErrorMuff, StatusMuffs, 17]; 

mc[$tateMuff$, 0]; 

mc[CndexTWmuff, StateMuffs, 1]; 

mc[SectorTWmuff, StateMuffs, 2]; 

mcfSeekTWmuFf, StateMuffs, 3]; *sdek or tag TW 

inc[TagTWmuff, StateMuffs, 3]i ♦seek or tag TW 

nic[KeadTWrnuff, StateMuffs, 4]; 

mc[WriteTWmuff, StateMuffs, 5]; 

mc[IUinEnal)leMuff# StateMuffs, 10]; 

mc[DiskSelectMuff, StateMuffs, 16]; 

mc[DiskSelectMuff+1, D iskSelectMuff, 1]; 

mcflOBPErrMuff, StateMuffs, 34]; 

mc[lndexTWBit, 20]; 
mcfSectorTWBit, 10]; 
mcfOtherTWBit, 4]; 
mc[ReadTWBit* 2]; 
mcfV/ri teTWBit, 1]; 
mef117D, 165]; 
mc[30D, 36]; 
mc[9D, 11]; 

mcfRamMuffs, 40]; 
me[TagMuffs, 60]; 
mc[FifoMuffs, 100]; 
mefEWAddrMuffs , 110]; 
mcfrRAddrMuffs, 114j; 


*** Disk Command constants 

mefelearErrors, 400]; 
me I* cl e arOTWs , 1000]; 
mcfclearSTW, 2000]; 


* ~ muffAddr.07 

* - muffAddr.06 

* = muffAddr.05 


clearOtherTWs 
clearSectorlW 
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me[clearITW, 4000]; 
mc[clearATWs, 7000]; 
mcfclearALL, 7400]; 
mc[‘cl earAL.Lbu tTagTW, 6400]; 
mc[forceCompError, 10000]; 
me[clearSetCompError, 20000]; 


* ~ miiffAddr.04 - clearlndexTW 

* s mUffAddr.04, ,05* .06 

* = mUffAddr.04, ,05* .06, .07 

* = muff Add r. 04, .05, ,06, .07 

* = muffAddr.03 
l1{ = muff Ad dr. 02 


mc[NoRunEnable, 2000]; * 

mc[DebugMode, 1000]; 
mc[ReadyAndIndex, 400]; * 

mc[DrvSelectTAG, 100000]; 
mcfCylSelectTAG, 40000]; 
mc[HeadSelectTAG, 20000]; * 

mc[ControlTag, 10000]; 
mc[SectorCntEnable, 40]; 

mc[ATSyncPat, 1]; * 

mcfDlSyncPat, 201]; * 

mc[ATSync:Read, 4000]; * Alto s> 

mc[;DlSync:Read, 0]; * 

mc[Morma'l Read , 104]; * control 


= Control.05 

* « Control.06 
= Control.07 

* = TAG.00 

* = TAG.01 
* TAG.02 

* = TAG.03 

* = TAG.04 

disk syttc pattern to write in Alto mode 
disk syttc pattern to write in D1 mode 
c pattern to be read 
pi sync pattern to be read 
RAM entry for read command 


* alto sUb-SectOr count - 1 
MC[AltoCount, 1shift[3,6]]; 

* driveSelectTAG + (Tri sUb-sector count *- 1) 
mc[T riCount, 100000, 1shiftf14,6]]; 




